6000 GOSUB 608: IF NOT X7 THEN B$ = CP$:D$ = CP$:TT$ = CP$: RETURN
6010 A$ = RC$(1): IF A$ = "" THEN IF G(12) >0 AND OP(11) THEN A$ = RC$(G(12))
6020 GOSUB 2000:AA$ = A$: GOSUB 7980: IF PB - LEN(BB$) <13 THEN 6050
6030 A$ = RC$(2): IF A$ = "" THEN IF G(12) >0 AND OP(11) THEN IF FP(G(12)) >0 THEN A$ = RC$(FP(G(12)))
6040 GOSUB 2000:BB$ = BB$ +" " +A$
6050 GOSUB 6360:B$ = BB$
6060 BB$ = "": IF MG = 0 THEN 6210
6070 IF MG = 1 THEN X2 = 1: GOTO 6200
6075 IF AA >1 THEN 6150
6100 IF NOT OP(25) THEN 6210
6110 GOSUB 605:EP = IQ:IQ = 0:LA = 0:X2 = 0:SP = FC:FC = Q(22): PRINT :W = X:IX = 0: GOSUB 2600: GOSUB 610: GOSUB 860: PRINT "HAS MORE THAN 1 MARRIAGE.": PRINT "THE MARRIAGE DATA FOR WHICH OF THE FOL";: GOSUB 865: PRINT "LOWING SPOUSES SHOULD BE USED:": PRINT
6115 FOR X8 = 1 TO MG:A$ = MI$(1,X8): GOSUB 2000:W = A: GOSUB 2600: PRINT X8") ";:IX = 3: IF A = 0 THEN GOSUB 2200: GOTO 6130
6120 GOSUB 610
6130 PRINT : NEXT
6131 PRINT : INVERSE : PRINT "CHOICE (1-"MG;: INPUT ")?";YN$: NORMAL : IF YN$ = "" THEN X2 = 1: GOTO 6140
6133 IF YN$ = CZ$ THEN 20000
6136 X2 = VAL(YN$): IF X2 <1 OR X2 >MG THEN 6131
6140 FC = SP:IQ = EP: GOTO 6200
6150 Y = X:X2 = 0:SP = MG: FOR X8 = 1 TO SP:A$ = MI$(1,X8): GOSUB 2000:X9 = A:D$ = A$
6160 X = VAL(S$(OD(AA -1),AA -1)): GOSUB 7620: GOSUB 6300
6170 X = VAL(S$(OD(AA -2),AA -2)): GOSUB 7620: GOSUB 6300
6180 X = Y: GOSUB 7620
6190 NEXT
6200 IF X2 >0 THEN A$ = MI$(2,X2): GOSUB 2000:AA$ = A$: GOSUB 7980: IF PB - LEN(BB$) >12 THEN A$ = MI$(3,X2): GOSUB 2000:BB$ = BB$ +" " +A$
6210 GOSUB 6360:D$ = BB$
6220 A$ = RC$(3): IF A$ = "" THEN IF G(11) >0 AND OP(11) THEN A$ = RC$(G(11))
6230 GOSUB 2000:AA$ = A$: GOSUB 7980: IF BB$ < >"L" THEN 6260
6240 BB$ = "Living": IF PB - LEN(BB$) <13 OR RC$(4) = "" THEN 6290
6250 GOSUB 8100:BB$ = BB$ +" " +A$: GOTO 6290
6260 IF PB - LEN(BB$) <13 THEN 6290
6270 A$ = RC$(4): IF A$ = "" THEN IF G(11) >0 AND OP(11) THEN IF FP(G(11)) >0 THEN A$ = RC$(FP(G(11)))
6280 GOSUB 2000:BB$ = BB$ +" " +A$
6290 GOSUB 6360:TT$ = BB$: RETURN
6300 A$ = RC$(6): GOSUB 2000: IF X9 >0 THEN IF A = X9 THEN 6350
6310 IF X9 = 0 THEN GOSUB 8600: IF A >.8 THEN 6350
6320 A$ = RC$(7): GOSUB 2000: IF X9 >0 THEN IF A = X9 THEN 6350
6330 IF X9 = 0 THEN GOSUB 8600: IF A >.8 THEN 6350
6340 RETURN
6350 X2 = X8:X8 = SP: RETURN
6360 IF LEN(BB$) <PB -3 THEN FOR II = 1 TO PB -3 - LEN(BB$):BB$ = BB$ +" ": NEXT
6370 IF LEN(BB$) >PB -3 THEN BB$ = LEFT$(BB$,PB -3)
6530 PRINT : PRINT "DO YOU WANT TO SET ANY PARAMETERS";: GOSUB 860: PRINT "BEFORE STARTING (Y/N)?";: GOSUB 690: POKE 34,0: IF YN$ = "Y" OR YN$ = "P" THEN GOSUB 1600
6540 RETURN
6560 GOSUB 850: PRINT "YOUR HEADER IS:": PRINT : FOR X5 = 1 TO HL: PRINT "LINE " CHR$(64 +X5)": ";:IX = 7: GOSUB 6610: NEXT : RETURN
6600 IF HL = 0 THEN RETURN
6605 GOSUB 595: FOR X5 = 1 TO HL: PRINT SPC( OP(13))V3$;:IX = OP(12):Y1 = Y1 +1: GOSUB 6610: NEXT : GOSUB 608: RETURN
6610 IF G$(X5) = "*" THEN PRINT DY$: RETURN
6620 IF LEN(G$(X5)) +IX < = FC THEN PRINT G$(X5): RETURN
6630 J = 0: FOR I = FC -IX TO 1 STEP -1: IF MID$ (G$(X5),I,1) = " " OR MID$ (G$(X5),I,1) = "-" THEN J = I:I = 1
6635 NEXT : IF J AND J < LEN(G$(X5)) THEN PRINT LEFT$(G$(X5),J): PRINT SPC( IX +2) RIGHT$(G$(X5), LEN(G$(X5)) -J):Y1 = Y1 +1: RETURN
6640 PRINT G$(X5): RETURN
6760 GOSUB 850: PRINT : PRINT "A) RUN A DIFFERENT PROGRAM": PRINT "B) CHECK FREE SPACE": PRINT "C) RETURN TO 'STANDARDS'": PRINT "D) END SESSION"
6762 PRINT : INVERSE : PRINT "CHOICE (A-D)?";: GOSUB 690: IF YN$ = CHR$(13) THEN GOTO 6780
6763 C1 = ASC(YN$) -64: IF C1 <1 OR C1 >4 THEN 6762
6764 IF C1 = 4 THEN GOSUB 850: PRINT Q$(21): PRINT "BYE...": END
7040 POKE 216,0:A = PEEK(222): IF A < >6 OR ME(WH(BB,1),1) <0 THEN 16720
7050 GOSUB 605:LA = 0: PRINT "LOAD DATA DISK NUMBER "WH(BB,4)" INTO DRIVE "WH(BB,1)". ";: GOSUB 860: PRINT "PRESS ANY KEY WHEN READY";: GOSUB 690: IF YN$ = CZ$ THEN 20000
7070 RETURN
7100 GOSUB 850: FOR I = 1 TO 7: PRINT : NEXT : INVERSE : PRINT "PLEASE WAIT";: NORMAL : PRINT "...": PRINT : PRINT SPC( 14);: RETURN
16510 PRINT CHR$(4)"OPENCONFIGURATION": PRINT CHR$(4)"READCONFIGURATION": FOR I = 1 TO 84: INPUT A: NEXT
16520 FOR I = 1 TO 50: CALL LI: NEXT : FOR I = 1 TO 14: INPUT A: NEXT
16530 FOR I = 1 TO 4: INPUT OP(I): NEXT : INPUT OP(17): INPUT A: INPUT OP(19): INPUT A: INPUT OP(10): INPUT A: INPUT OP(7): INPUT A: FOR I = 12 TO 14: INPUT OP(I): NEXT
16540 INPUT A: INPUT A: INPUT OP(18): INPUT OP(20): INPUT OP(5): FOR I = 21 TO 23: INPUT OP(I): NEXT : FOR I = 1 TO 9: INPUT A: NEXT : INPUT OP(2): INPUT OP(6): INPUT OP(9): INPUT OP(11): INPUT OP(16): INPUT OP(24): INPUT OP(8): INPUT OP(25): INPUT OP(26)
16700 A = PEEK(222): IF A = 5 OR A = 6 OR A = 8 THEN PRINT "NO CONFIGURATION FILE AVAILABLE ON DISK";: GOSUB 860: PRINT "LAST USED. PLEASE SEE MANUAL.": END